unit ubr;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TUbrFrm = class(TForm)
    img: TImage;
    extTimer: TTimer;
    procedure extTimerTimer(Sender: TObject);
    procedure imgClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure setTimer(aVal : integer);
  end;

var
  UbrFrm: TUbrFrm;

implementation

uses Hpt;

{$R *.dfm}

procedure TUbrFrm.extTimerTimer(Sender: TObject);
begin
  close;
end;

procedure TUbrFrm.setTimer(aVal: Integer);
begin
  extTimer.Interval := aVal;
  extTimer.Enabled := true;
end;

procedure TUbrFrm.imgClick(Sender: TObject);
begin
  close;
end;

end.
